﻿Imports Microsoft.VisualBasic
Imports System.Configuration.ConfigurationManager
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.IO
Imports System

Public Class ConsultaIntranet

    'instanciar la conexion
    Dim cn As New SqlConnection(ConnectionStrings("cn").ConnectionString)

    Public Function ListadoParametro(ByVal nom As String) As DataTable
        Dim da As New SqlDataAdapter(nom, cn)
        Dim tb As New DataTable
        da.Fill(tb)
        Return tb
    End Function

End Class
